object dm: Tdm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 319
  Top = 114
  Height = 572
  Width = 820
  object adTeachers: TADOTable
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source='#1041#1072#1079#1072' ' +
      #1076#1072#1085#1085#1099#1093' MS Access;Initial Catalog=..\adb\dbst.mdb'
    CursorType = ctStatic
    BeforePost = adTeachersBeforePost
    TableName = 'Teachers'
    Left = 24
    Top = 136
    object adTeachersTeacher_Code: TAutoIncField
      FieldName = 'Teacher_Code'
      ReadOnly = True
    end
    object adTeachersTeacher_Name: TWideStringField
      FieldName = 'Teacher_Name'
      Size = 50
    end
    object adTeachersClass: TWideStringField
      FieldName = 'Class'
      Size = 50
    end
    object adTeachersStatus: TWideStringField
      FieldName = 'Status'
      Size = 50
    end
  end
  object dsTeachers: TDataSource
    DataSet = adTeachers
    Left = 96
    Top = 136
  end
  object adGroups: TADOTable
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source='#1041#1072#1079#1072' ' +
      #1076#1072#1085#1085#1099#1093' MS Access;Initial Catalog=..\adb\dbst.mdb'
    CursorType = ctStatic
    BeforePost = adGroupsBeforePost
    TableName = 'Groups'
    Left = 24
    Top = 72
    object adGroupsGroupCode: TAutoIncField
      FieldName = 'GroupCode'
      ReadOnly = True
    end
    object adGroupsGroup_Number: TIntegerField
      Alignment = taLeftJustify
      FieldName = 'Group_Number'
    end
    object adGroupsTeacher: TIntegerField
      FieldName = 'Teacher'
    end
    object adGroupsForm: TWideStringField
      FieldName = 'Form'
      Size = 50
    end
    object adGroupsLkTeacherName: TStringField
      FieldKind = fkLookup
      FieldName = 'LkTeacherName'
      LookupDataSet = adTeachers
      LookupKeyFields = 'Teacher_Code'
      LookupResultField = 'Teacher_Name'
      KeyFields = 'Teacher'
      Size = 50
      Lookup = True
    end
  end
  object dsGroups: TDataSource
    DataSet = adGroups
    Left = 96
    Top = 72
  end
  object adStudents: TADOTable
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source='#1041#1072#1079#1072' ' +
      #1076#1072#1085#1085#1099#1093' MS Access;Initial Catalog=..\adb\dbst.mdb'
    CursorType = ctStatic
    BeforeInsert = adStudentsBeforeInsert
    AfterInsert = adStudentsAfterInsert
    BeforePost = adStudentsBeforePost
    AfterPost = adStudentsAfterPost
    AfterCancel = adStudentsAfterCancel
    AfterScroll = adStudentsAfterScroll
    TableName = 'Students'
    Left = 24
    Top = 16
    object adStudentscode: TAutoIncField
      FieldName = 'code'
      ReadOnly = True
    end
    object adStudentsFamilia: TWideStringField
      FieldName = 'Familia'
      Size = 50
    end
    object adStudentsName: TWideStringField
      FieldName = 'Name'
      Size = 50
    end
    object adStudentsOtchestvo: TWideStringField
      FieldName = 'Otchestvo'
      Size = 50
    end
    object adStudentskurs: TSmallintField
      FieldName = 'kurs'
      OnChange = adStudentskursChange
    end
    object adStudentsedu_start: TDateTimeField
      FieldName = 'edu_start'
      DisplayFormat = 'dd.mm.yyyy'
      EditMask = '00.00.0000;1; '
    end
    object adStudentsedu_end: TDateTimeField
      FieldName = 'edu_end'
      DisplayFormat = 'dd.mm.yyyy'
      EditMask = '00.00.0000;1; '
    end
    object adStudentslast_pay: TDateTimeField
      FieldName = 'last_pay'
    end
    object adStudentsnext_pay: TDateTimeField
      FieldName = 'next_pay'
    end
    object adStudentspay_state: TWideStringField
      FieldName = 'pay_state'
      OnChange = adStudentspay_stateChange
      Size = 50
    end
    object adStudentsglobal_state: TWideStringField
      FieldName = 'global_state'
      OnChange = adStudentsglobal_stateChange
      Size = 50
    end
    object adStudentsCountry: TWideStringField
      FieldName = 'Country'
      Size = 50
    end
    object adStudentsCity: TWideStringField
      FieldName = 'City'
      Size = 128
    end
    object adStudentsPost_Index: TWideStringField
      FieldName = 'Post_Index'
      Size = 50
    end
    object adStudentsStreet_String: TWideStringField
      FieldName = 'Street_String'
      Size = 255
    end
    object adStudentsBirthYear: TIntegerField
      FieldName = 'BirthYear'
    end
    object adStudentsPrivilege: TWideStringField
      FieldName = 'Privilege'
      OnChange = adStudentsPrivilegeChange
      Size = 50
    end
    object adStudentsMaterial: TWideStringField
      FieldName = 'Material'
      Size = 50
    end
    object adStudentsProfession: TWideStringField
      FieldName = 'Profession'
      Size = 50
    end
    object adStudentsEducation: TWideStringField
      FieldName = 'Education'
      Size = 50
    end
    object adStudentsLkTeacherCode: TIntegerField
      FieldKind = fkLookup
      FieldName = 'LkTeacherCode'
      LookupDataSet = adGroups
      LookupKeyFields = 'GroupCode'
      LookupResultField = 'Teacher'
      KeyFields = 'GroupCode'
      Lookup = True
    end
    object adStudentsLkTeacher: TStringField
      FieldKind = fkLookup
      FieldName = 'LkTeacher'
      LookupDataSet = adTeachers
      LookupKeyFields = 'Teacher_Code'
      LookupResultField = 'Teacher_Name'
      KeyFields = 'LkTeacherCode'
      Size = 50
      Lookup = True
    end
    object adStudentsLkClass: TStringField
      FieldKind = fkLookup
      FieldName = 'LkClass'
      LookupDataSet = adTeachers
      LookupKeyFields = 'Teacher_Code'
      LookupResultField = 'Class'
      KeyFields = 'LkTeacherCode'
      Size = 50
      Lookup = True
    end
    object adStudentsLkForm: TStringField
      FieldKind = fkLookup
      FieldName = 'LkForm'
      LookupDataSet = adGroups
      LookupKeyFields = 'GroupCode'
      LookupResultField = 'Form'
      KeyFields = 'GroupCode'
      Size = 50
      Lookup = True
    end
    object adStudentsprev_languages: TWideStringField
      FieldName = 'prev_languages'
      Size = 50
    end
    object adStudentsGroupCode: TIntegerField
      FieldName = 'GroupCode'
      OnChange = adStudentsGroupCodeChange
    end
    object adStudentsLkGroupNumber: TIntegerField
      FieldKind = fkLookup
      FieldName = 'LkGroupNumber'
      LookupDataSet = adGroups
      LookupKeyFields = 'GroupCode'
      LookupResultField = 'Group_Number'
      KeyFields = 'GroupCode'
      Lookup = True
    end
  end
  object dsStudents: TDataSource
    DataSet = adStudents
    Left = 96
    Top = 16
  end
  object qStudents: TADOQuery
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source='#1041#1072#1079#1072' ' +
      #1076#1072#1085#1085#1099#1093' MS Access;Initial Catalog=..\adb\dbst.mdb'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT code, Familia, Group_Number, Teacher_Name, Form, Class, k' +
        'urs, privilege, pay_state'
      'FROM Students, Groups, Teachers')
    Left = 336
    Top = 16
    object qStudentscode: TAutoIncField
      FieldName = 'code'
      ReadOnly = True
    end
    object qStudentsFamilia: TWideStringField
      FieldName = 'Familia'
      Size = 50
    end
    object qStudentsGroup_Number: TIntegerField
      FieldName = 'Group_Number'
    end
    object qStudentsTeacher_Name: TWideStringField
      FieldName = 'Teacher_Name'
      Size = 50
    end
    object qStudentsClass: TWideStringField
      FieldName = 'Class'
      Size = 50
    end
    object qStudentsForm: TWideStringField
      FieldName = 'Form'
      Size = 50
    end
    object qStudentskurs: TSmallintField
      FieldName = 'kurs'
    end
    object qStudentsprivilege: TWideStringField
      FieldName = 'privilege'
      Size = 50
    end
    object qStudentspay_state: TWideStringField
      FieldName = 'pay_state'
      Size = 50
    end
  end
  object dsqStudents: TDataSource
    DataSet = qStudents
    Left = 416
    Top = 16
  end
  object adWorks: TADOTable
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source='#1041#1072#1079#1072' ' +
      #1076#1072#1085#1085#1099#1093' MS Access;Initial Catalog=..\adb\dbst.mdb'
    CursorType = ctStatic
    IndexFieldNames = 'Student_Code'
    MasterFields = 'code'
    MasterSource = dsStudents
    TableName = 'Works'
    Left = 24
    Top = 192
    object adWorksWork_Code: TAutoIncField
      FieldName = 'Work_Code'
      ReadOnly = True
    end
    object adWorksStudent_Code: TIntegerField
      FieldName = 'Student_Code'
    end
    object adWorksWork_Name: TWideStringField
      FieldName = 'Work_Name'
      Size = 50
    end
    object adWorksTeacher_Name: TWideStringField
      FieldName = 'Teacher_Name'
      Size = 50
    end
    object adWorksMark: TWideStringField
      FieldName = 'Mark'
      Size = 50
    end
    object adWorksteacher_date: TDateTimeField
      FieldName = 'teacher_date'
      DisplayFormat = 'dd.mm.yyyy'
      EditMask = '00.00.0000;1; '
    end
    object adWorksreturn_date: TDateTimeField
      FieldName = 'return_date'
      DisplayFormat = 'dd.mm.yyyy'
      EditMask = '00.00.0000;1; '
    end
    object adWorkswork_kurs: TIntegerField
      FieldName = 'work_kurs'
    end
    object adWorksproto_spavka: TIntegerField
      FieldName = 'proto_spavka'
    end
  end
  object dsWorks: TDataSource
    DataSet = adWorks
    Left = 96
    Top = 192
  end
  object adStats: TADOTable
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source='#1041#1072#1079#1072' ' +
      #1076#1072#1085#1085#1099#1093' MS Access;Initial Catalog=..\adb\dbst.mdb'
    CursorType = ctStatic
    IndexFieldNames = 'code'
    TableName = 'Stats'
    Left = 176
    Top = 16
    object adStatscode: TAutoIncField
      FieldName = 'code'
      ReadOnly = True
    end
    object adStatsDate: TIntegerField
      FieldName = 'Date'
    end
    object adStatsClass: TWideStringField
      FieldName = 'Class'
      Size = 50
    end
    object adStatsKurs: TIntegerField
      FieldName = 'Kurs'
    end
    object adStatsNewbs: TIntegerField
      FieldName = 'Newbs'
    end
    object adStatsTransfered: TIntegerField
      FieldName = 'Transfered'
    end
    object adStatsRestored: TIntegerField
      FieldName = 'Restored'
    end
    object adStatsExcluded: TIntegerField
      FieldName = 'Excluded'
    end
    object adStatsFinished: TIntegerField
      FieldName = 'Finished'
    end
    object adStatsO_Amm: TIntegerField
      FieldName = 'O_Amm'
    end
    object adStatsZ_Amm: TIntegerField
      FieldName = 'Z_Amm'
    end
    object adStatsZO_Amm: TIntegerField
      FieldName = 'ZO_Amm'
    end
    object adStatsB_Amm: TIntegerField
      FieldName = 'B_Amm'
    end
    object adStatsC_Amm: TIntegerField
      FieldName = 'C_Amm'
    end
    object adStatsDebtors: TIntegerField
      FieldName = 'Debtors'
    end
    object adStatsPrivileges_Inv: TIntegerField
      FieldName = 'Privileges_Inv'
    end
    object adStatsPriveleges_Lan: TIntegerField
      FieldName = 'Priveleges_Lan'
    end
  end
  object dsStats: TDataSource
    DataSet = adStats
    Left = 256
    Top = 16
  end
  object qCounter: TADOQuery
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source='#1041#1072#1079#1072' ' +
      #1076#1072#1085#1085#1099#1093' MS Access;Initial Catalog=..\adb\dbst.mdb'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT COUNT (*) FROM Students, Groups, Teachers'
      'WHERE Students.GroupCode = Groups.GroupCode'
      'AND Groups.Teacher = Teachers.Teacher_code')
    Left = 336
    Top = 80
    object qCounterExpr1000: TIntegerField
      FieldName = 'Expr1000'
    end
  end
  object dsqCounter: TDataSource
    DataSet = qCounter
    Left = 416
    Top = 80
  end
  object qStats: TADOQuery
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source='#1041#1072#1079#1072' ' +
      #1076#1072#1085#1085#1099#1093' MS Access;Initial Catalog=..\adb\dbst.mdb'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM Stats')
    Left = 336
    Top = 136
    object qStatscode: TAutoIncField
      FieldName = 'code'
      ReadOnly = True
    end
    object qStatsDate: TIntegerField
      FieldName = 'Date'
    end
    object qStatsClass: TWideStringField
      FieldName = 'Class'
      Size = 50
    end
    object qStatsKurs: TIntegerField
      FieldName = 'Kurs'
    end
    object qStatsNewbs: TIntegerField
      FieldName = 'Newbs'
    end
    object qStatsTransfered: TIntegerField
      FieldName = 'Transfered'
    end
    object qStatsRestored: TIntegerField
      FieldName = 'Restored'
    end
    object qStatsExcluded: TIntegerField
      FieldName = 'Excluded'
    end
    object qStatsFinished: TIntegerField
      FieldName = 'Finished'
    end
    object qStatsO_Amm: TIntegerField
      FieldName = 'O_Amm'
    end
    object qStatsZ_Amm: TIntegerField
      FieldName = 'Z_Amm'
    end
    object qStatsZO_Amm: TIntegerField
      FieldName = 'ZO_Amm'
    end
    object qStatsB_Amm: TIntegerField
      FieldName = 'B_Amm'
    end
    object qStatsC_Amm: TIntegerField
      FieldName = 'C_Amm'
    end
    object qStatsDebtors: TIntegerField
      FieldName = 'Debtors'
    end
    object qStatsPrivileges_Inv: TIntegerField
      FieldName = 'Privileges_Inv'
    end
    object qStatsPriveleges_Lan: TIntegerField
      FieldName = 'Priveleges_Lan'
    end
  end
  object dsqStats: TDataSource
    DataSet = qStats
    Left = 416
    Top = 136
  end
  object adPayments: TADOTable
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source='#1041#1072#1079#1072' ' +
      #1076#1072#1085#1085#1099#1093' MS Access;Initial Catalog=..\adb\dbst.mdb'
    BeforePost = adPaymentsBeforePost
    IndexFieldNames = 'payer'
    MasterFields = 'code'
    MasterSource = dsStudents
    TableName = 'Payments'
    Left = 24
    Top = 264
    object adPaymentspaycode: TAutoIncField
      FieldName = 'paycode'
      ReadOnly = True
    end
    object adPaymentspayer: TIntegerField
      FieldName = 'payer'
    end
    object adPaymentspaydate: TDateTimeField
      FieldName = 'paydate'
    end
    object adPaymentscause: TWideStringField
      FieldName = 'cause'
      Size = 50
    end
    object adPaymentspaymethod: TWideStringField
      FieldName = 'paymethod'
      Size = 50
    end
    object adPaymentssum: TBCDField
      FieldName = 'sum'
      Precision = 19
    end
  end
  object dsPayments: TDataSource
    DataSet = adPayments
    Left = 96
    Top = 264
  end
end
